﻿Module Module1
  Sub Main()

    ' imposta la cartella corrente:
    My.Computer.FileSystem.CurrentDirectory() = _
         "C:\origine"
    ' legge la cartella corrente:
    Dim corrente As String = _
        My.Computer.FileSystem.CurrentDirectory()

  End Sub
End Module
